inherited dtmck_ProductInit: Tdtmck_ProductInit
  OldCreateOrder = True
  Left = 433
  Height = 498
  Width = 801
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from V_ck_ProductBill where 0=0'
    object adsMasterBillID: TStringField
      DisplayLabel = #21333#25454'ID'
      FieldName = 'BillID'
    end
    object adsMasterBillNo: TStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'BillNo'
    end
    object adsMasterBillDate: TDateTimeField
      DisplayLabel = #21333#25454#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterBillType: TStringField
      DisplayLabel = #21333#25454#31867#22411
      FieldName = 'BillType'
    end
    object adsMasterBillTypeName: TStringField
      DisplayLabel = #21333#25454#31867#22411
      FieldName = 'BillTypeName'
    end
    object adsMasterBillFlow: TWordField
      DisplayLabel = #28304#21333#31867#22411
      FieldName = 'BillFlow'
    end
    object adsMasterInOutType: TStringField
      DisplayLabel = #20986#20837#31867#22411
      FieldName = 'InOutType'
    end
    object adsMasterInOutTypeName: TStringField
      DisplayLabel = #20986#20837#31867#22411
      FieldName = 'InOutTypeName'
      Size = 50
    end
    object adsMasterDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterStockID: TStringField
      DisplayLabel = #20179#24211'ID'
      FieldName = 'StockID'
    end
    object adsMasterStockCode: TStringField
      DisplayLabel = #20179#24211#32534#30721
      FieldName = 'StockCode'
    end
    object adsMasterStockName: TStringField
      DisplayLabel = #20179#24211
      FieldName = 'StockName'
      Size = 50
    end
    object adsMasterStockMan: TStringField
      DisplayLabel = #20179#31649#21592
      FieldName = 'StockMan'
    end
    object adsMasterStockManName: TStringField
      DisplayLabel = #20179#31649#21592
      FieldName = 'StockManName'
    end
    object adsMasterSupplyID: TStringField
      DisplayLabel = #25152#23646#37096#38376'|ID'
      FieldName = 'SupplyID'
    end
    object adsMasterSupplyCode: TStringField
      DisplayLabel = #25152#23646#37096#38376'|'#32534#30721
      FieldName = 'SupplyCode'
    end
    object adsMasterSupplyShortName: TStringField
      DisplayLabel = #25152#23646#37096#38376'|'#21517#31216
      FieldName = 'SupplyShortName'
      Size = 80
    end
    object adsMasterHelperCode: TStringField
      DisplayLabel = #20132#36135#21333#20301'|'#21161#35760#30721
      FieldName = 'HelperCode'
      Size = 50
    end
    object adsMasterSumMoney: TFloatField
      DisplayLabel = #24635#37329#39069
      FieldName = 'SumMoney'
    end
    object adsMasterFinanceID: TStringField
      DisplayLabel = #36130#21153#26399#38388'ID'
      FieldName = 'FinanceID'
    end
    object adsMasterFinanceName: TStringField
      DisplayLabel = #36130#21153#26399#38388
      FieldName = 'FinanceName'
    end
    object adsMasterBeginTime: TDateTimeField
      DisplayLabel = #36215#22987#26102#38388
      FieldName = 'BeginTime'
    end
    object adsMasterEndTime: TDateTimeField
      DisplayLabel = #32456#27490#26102#38388
      FieldName = 'EndTime'
    end
    object adsMasterHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from ck_ProductBill'
    object adsMasterEditBillID: TStringField
      DisplayLabel = #21333#25454'ID'
      FieldName = 'BillID'
    end
    object adsMasterEditBillNo: TStringField
      DisplayLabel = #21333#25454#32534#21495
      FieldName = 'BillNo'
    end
    object adsMasterEditBillDate: TDateTimeField
      DisplayLabel = #21333#25454#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterEditBillType: TStringField
      DisplayLabel = #21333#25454#31867#22411
      FieldName = 'BillType'
    end
    object adsMasterEditBillFlow: TWordField
      DisplayLabel = #28304#21333#31867#22411
      FieldName = 'BillFlow'
    end
    object adsMasterEditInOutType: TStringField
      DisplayLabel = #20986#20837#31867#22411
      FieldName = 'InOutType'
    end
    object adsMasterEditDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterEditSupplyID: TStringField
      DisplayLabel = #25152#23646#37096#38376'ID'
      FieldName = 'SupplyID'
    end
    object adsMasterEditStockID: TStringField
      DisplayLabel = #20179#24211'ID'
      FieldName = 'StockID'
    end
    object adsMasterEditAimStockID: TStringField
      DisplayLabel = #30446#30340#20179#24211'ID'
      FieldName = 'AimStockID'
    end
    object adsMasterEditStockMan: TStringField
      DisplayLabel = #20179#31649#21592
      FieldName = 'StockMan'
    end
    object adsMasterEditDrawMan: TStringField
      DisplayLabel = #39046#26009#20154
      FieldName = 'DrawMan'
    end
    object adsMasterEditDrawDeptID: TStringField
      DisplayLabel = #39046#26009#37096#38376
      FieldName = 'DrawDeptID'
    end
    object adsMasterEditSumMoney: TFloatField
      DisplayLabel = #24635#37329#39069
      FieldName = 'SumMoney'
    end
    object adsMasterEditFinanceID: TStringField
      DisplayLabel = #36130#21153#26399#38388'ID'
      FieldName = 'FinanceID'
    end
    object adsMasterEditHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterEditChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterEditCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterEditWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterEditWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterEditModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterEditModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterEditRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
    object adsMasterEditres_StockName: TStringField
      DisplayLabel = #20179#24211
      FieldKind = fkLookup
      FieldName = 'res_StockName'
      LookupDataSet = res_Stock
      LookupKeyFields = 'StockID'
      LookupResultField = 'StockName'
      KeyFields = 'StockID'
      Lookup = True
    end
    object adsMasterEditres_SupplyName: TStringField
      DisplayLabel = #25152#23646#37096#38376
      FieldKind = fkLookup
      FieldName = 'res_SupplyName'
      LookupDataSet = res_Supply
      LookupKeyFields = 'SupplyID'
      LookupResultField = 'SupplyShortName'
      KeyFields = 'SupplyID'
      Size = 100
      Lookup = True
    end
    object adsMasterEditres_DrawMan: TStringField
      DisplayLabel = #39046#26009#20154
      FieldKind = fkLookup
      FieldName = 'res_DrawManName'
      LookupDataSet = res_Employee
      LookupKeyFields = 'EmpID'
      LookupResultField = 'EmpName'
      KeyFields = 'DrawMan'
      Lookup = True
    end
    object adsMasterEditres_InOutTypeName: TStringField
      DisplayLabel = #20837#24211#31867#22411
      FieldKind = fkLookup
      FieldName = 'res_InOutTypeName'
      LookupDataSet = res_InOutType
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'InOutType'
      Size = 50
      Lookup = True
    end
    object adsMasterEditres_StockManName: TStringField
      DisplayLabel = #20179#31649
      FieldKind = fkLookup
      FieldName = 'res_StockManName'
      LookupDataSet = res_Employee
      LookupKeyFields = 'EmpID'
      LookupResultField = 'EmpName'
      KeyFields = 'StockMan'
      Lookup = True
    end
    object adsMasterEditres_DeptFullName: TStringField
      DisplayLabel = #37096#38376
      FieldKind = fkLookup
      FieldName = 'res_DeptFullName'
      LookupDataSet = res_Department
      LookupKeyFields = 'DeptID'
      LookupResultField = 'DeptFullName'
      KeyFields = 'DrawDeptID'
      Size = 100
      Lookup = True
    end
    object adsMasterEditres_FinanceName: TStringField
      DisplayLabel = #36130#21153#26399#38388
      FieldKind = fkLookup
      FieldName = 'res_FinanceName'
      LookupDataSet = res_FinancePeriod
      LookupKeyFields = 'FinanceID'
      LookupResultField = 'FinanceName'
      KeyFields = 'FinanceID'
      Lookup = True
    end
  end
  object adsDetail: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsDetailBeforePost
    AfterScroll = adsDetailAfterScroll
    OnNewRecord = adsDetailNewRecord
    CommandText = 'Select * from ck_ProductBillDetail where 0=1'
    EnableBCD = False
    Parameters = <>
    Left = 192
    Top = 40
    object adsDetailID: TStringField
      FieldName = 'ID'
    end
    object adsDetailBillID: TStringField
      DisplayLabel = #20851#32852'ID'
      FieldName = 'BillID'
    end
    object adsDetailOrderNo: TStringField
      Tag = 2
      DisplayLabel = #35746#21333#32534#21495
      FieldName = 'OrderNo'
    end
    object adsDetailOrderDetailNo: TStringField
      Tag = 2
      DisplayLabel = #35746#21333#26126#32454#32534#21495
      FieldName = 'OrderDetailNo'
    end
    object adsDetailCustOrderDetailNo: TStringField
      Tag = 2
      DisplayLabel = #23458#25143#35746#21333#26126#32454#21333#21495
      FieldName = 'CustOrderDetailNo'
    end
    object adsDetailCustOrderNo: TStringField
      Tag = 2
      DisplayLabel = #23458#25143#35746#21333#21495
      FieldName = 'CustOrderNo'
    end
    object adsDetailProjectNo: TStringField
      DisplayLabel = #21345#21495'/'#32568#21495
      FieldName = 'ProjectNo'
    end
    object adsDetailCustID: TStringField
      Tag = 2
      DisplayLabel = #23458#25143'ID'
      FieldName = 'CustID'
      OnChange = adsDetailCustIDChange
    end
    object adsDetailres_CustName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_CustName'
      LookupDataSet = res_Supply
      LookupKeyFields = 'SupplyID'
      LookupResultField = 'SupplyShortName'
      KeyFields = 'CustID'
      Size = 50
      Lookup = True
    end
    object adsDetailProcessID: TStringField
      Tag = 2
      DisplayLabel = #31867#22411'ID'
      FieldName = 'ProcessID'
    end
    object adsDetailres_ProcessName: TStringField
      DisplayLabel = #31867#22411
      FieldKind = fkLookup
      FieldName = 'res_ProcessName'
      LookupDataSet = res_Process
      LookupKeyFields = 'ProcessID'
      LookupResultField = 'ProcessName'
      KeyFields = 'ProcessID'
      Size = 50
      Lookup = True
    end
    object adsDetailProProcessID: TStringField
      Tag = 2
      DisplayLabel = #21152#24037#31867#22411'ID'
      FieldName = 'ProProcessID'
    end
    object adsDetailres_ProProcessName: TStringField
      DisplayLabel = #21152#24037#31867#22411
      FieldKind = fkLookup
      FieldName = 'res_ProProcessName'
      LookupDataSet = res_Process
      LookupKeyFields = 'ProcessID'
      LookupResultField = 'ProcessName'
      KeyFields = 'ProProcessID'
      Size = 50
      Lookup = True
    end
    object adsDetailPosID: TStringField
      Tag = 2
      DisplayLabel = #20179#20301'ID'
      FieldName = 'PosID'
      Size = 50
    end
    object adsDetailres_PosNo: TStringField
      DisplayLabel = #20179#20301
      FieldKind = fkLookup
      FieldName = 'res_PosNo'
      LookupDataSet = res_StockPlace
      LookupKeyFields = 'PosID'
      LookupResultField = 'PosNo'
      KeyFields = 'PosID'
      Lookup = True
    end
    object adsDetailAimPosID: TStringField
      Tag = 2
      DisplayLabel = #30446#26631#20179#20301'ID'
      FieldName = 'AimPosID'
    end
    object adsDetailProductID: TStringField
      Tag = 2
      DisplayLabel = #20135#21697'ID'
      FieldName = 'ProductID'
      OnChange = adsDetailProductIDChange
    end
    object adsDetailProductCode: TStringField
      Tag = 2
      DisplayLabel = #20135#21697#32534#30721
      FieldName = 'ProductCode'
      Size = 50
    end
    object adsDetailProductName: TStringField
      Tag = 2
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'ProductName'
      Size = 100
    end
    object adsDetailSpecs: TStringField
      Tag = 2
      DisplayLabel = #22411#21495#35268#26684
      FieldName = 'Specs'
      Size = 1000
    end
    object adsDetailBatchNo: TStringField
      DisplayLabel = #25209#21495
      FieldName = 'BatchNo'
      Size = 50
    end
    object adsDetailCustBreadth: TStringField
      DisplayLabel = #24133#23485'(CM)'
      FieldName = 'CustBreadth'
      Size = 50
    end
    object adsDetailCustYardGram: TStringField
      DisplayLabel = #20811#37325'(G/m2)'
      FieldName = 'CustYardGram'
      Size = 50
    end
    object adsDetailCustHeight: TStringField
      DisplayLabel = #33457#39640'(CM)'
      FieldName = 'CustHeight'
      Size = 50
    end
    object adsDetailCustWidth: TStringField
      DisplayLabel = #33457#23485'(CM)'
      FieldName = 'CustWidth'
      Size = 50
    end
    object adsDetailColorCode: TStringField
      DisplayLabel = #33394#21495
      FieldName = 'ColorCode'
    end
    object adsDetailColorName: TStringField
      DisplayLabel = #39068#33394
      FieldName = 'ColorName'
      Size = 50
    end
    object adsDetailColorID: TStringField
      DisplayLabel = #33394#21495'ID'
      FieldName = 'ColorID'
    end
    object adsDetailGradeID: TStringField
      DisplayLabel = #31561#32423'ID'
      FieldName = 'GradeID'
      Size = 50
    end
    object adsDetailres_GradeName: TStringField
      DisplayLabel = #31561#32423
      FieldKind = fkLookup
      FieldName = 'res_GradeName'
      LookupDataSet = res_ProductGrade
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GradeID'
      Size = 10
      Lookup = True
    end
    object adsDetailMeter: TFloatField
      DisplayLabel = #25968#37327'(M)'
      FieldName = 'Meter'
    end
    object adsDetailYard: TFloatField
      DisplayLabel = #25968#37327'(Y)'
      FieldName = 'Yard'
    end
    object adsDetailWeight: TFloatField
      DisplayLabel = #25968#37327'(KG)'
      FieldName = 'Weight'
    end
    object adsDetailSupplyID: TStringField
      Tag = 2
      DisplayLabel = #20379#24212#21830'ID'
      FieldName = 'SupplyID'
    end
    object adsDetailres_SupplyName: TStringField
      DisplayLabel = #20379#24212#21830
      FieldKind = fkLookup
      FieldName = 'res_SupplyName'
      LookupDataSet = res_Supply
      LookupKeyFields = 'SupplyID'
      LookupResultField = 'SupplyShortName'
      KeyFields = 'SupplyID'
      Size = 50
      Lookup = True
    end
    object adsDetailPieceCount: TFloatField
      DisplayLabel = #21305#25968
      FieldName = 'PieceCount'
    end
    object adsDetailPieceNumber: TFloatField
      DisplayLabel = #27599#20214#25968#37327
      FieldName = 'PieceNumber'
      OnChange = adsDetailPieceNumberChange
    end
    object adsDetailNumber: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'Number'
      OnChange = adsDetailNumberChange
    end
    object adsDetailUnitID: TStringField
      Tag = 2
      DisplayLabel = #21333#20301'ID'
      FieldName = 'UnitID'
      OnChange = adsDetailUnitIDChange
    end
    object adsDetailres_UnitName: TStringField
      DisplayLabel = #21333#20301
      FieldKind = fkLookup
      FieldName = 'res_UnitName'
      LookupDataSet = res_Unit
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object adsDetailPrice: TFloatField
      Tag = 2
      DisplayLabel = #21333#20215
      FieldName = 'Price'
      OnChange = adsDetailPriceChange
    end
    object adsDetailMoney: TBCDField
      DisplayLabel = #37329#39069
      FieldName = 'Money'
      OnChange = adsDetailMoneyChange
      Precision = 18
      Size = 2
    end
    object adsDetailWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsDetailWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsDetailModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsDetailModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsDetailRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 500
    end
    object adsDetailRemark2: TStringField
      DisplayLabel = #22791#27880'2'
      FieldName = 'Remark2'
      Size = 100
    end
  end
  object res_Supply: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select SupplyID, SupplyCode, SupplyShortName, SupplyFullName fro' +
      'm V_da_DeptCustSupply'
    Parameters = <>
    Left = 192
    Top = 104
  end
  object res_Employee: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select EmpID, EmpName from V_da_Employee'
    Parameters = <>
    Left = 192
    Top = 168
  end
  object res_Stock: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select StockID, StockCode, StockName from V_da_Stock'
    Parameters = <>
    Left = 328
    Top = 168
  end
  object res_FinancePeriod: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select FinanceID, FinanceName from V_cw_FinancePeriod'
    Parameters = <>
    Left = 584
    Top = 168
  end
  object frdsDetail: TfrDBDataSet
    DataSet = adsDetail
    Left = 128
    Top = 160
  end
  object res_Unit: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select UnitID, UnitCode, UnitName from V_da_Unit'
    Parameters = <>
    Left = 464
    Top = 168
  end
  object res_StockPlace: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select PosID, PosNo, PosName from V_da_StockPlace'
    Parameters = <>
    Left = 328
    Top = 240
  end
  object res_InOutType: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select ID, Name from V_da_InOutType'
    Parameters = <>
    Left = 464
    Top = 240
  end
  object adsUserStock: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.StockID, b.StockCode, b.StockName from xt_StockSet a '#13#10 +
      'join da_Stock b on a.StockID=b.StockID'#13#10'where b.DeptID=:DeptID'#13#10 +
      ' and a.UserID=(select UserID from xt_Users where UserCode=:UserC' +
      'ode)'#13#10' and isnull(b.StockType,0)=:StockType and isnull(b.HasStop' +
      ',0)=0'
    Parameters = <
      item
        Name = 'DeptID'
        Size = -1
        Value = Null
      end
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end
      item
        Name = 'StockType'
        Size = -1
        Value = Null
      end>
    Left = 464
    Top = 104
  end
  object res_Department: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select DeptID, DeptCode, DeptName, DeptFullName'#13#10'  from V_da_Dep' +
      'artment'
    Parameters = <>
    Left = 192
    Top = 240
  end
  object adsDepartment: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    CommandText = 
      'Select DeptID, DeptCode, DeptName, DeptFullName'#13#10'from V_da_Depar' +
      'tment'#13#10'where isnull(HasStop,0)=0'#13#10'order by DeptID'
    Parameters = <>
    Left = 328
    Top = 104
    object adsDepartmentDeptID: TStringField
      FieldName = 'DeptID'
    end
    object adsDepartmentDeptCode: TStringField
      FieldName = 'DeptCode'
    end
    object adsDepartmentDeptName: TStringField
      FieldName = 'DeptName'
      Size = 50
    end
    object adsDepartmentDeptFullName: TStringField
      FieldName = 'DeptFullName'
      Size = 100
    end
  end
  object adsBrowseDetail: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsDetailBeforePost
    OnNewRecord = adsDetailNewRecord
    CommandText = 'Select * from ck_ProductBillDetail where 0=1'
    EnableBCD = False
    Parameters = <>
    Left = 328
    Top = 40
    object StringField1: TStringField
      FieldName = 'ID'
    end
    object StringField2: TStringField
      DisplayLabel = #20851#32852'ID'
      FieldName = 'BillID'
    end
    object StringField3: TStringField
      Tag = 2
      DisplayLabel = #35746#21333#32534#21495
      FieldName = 'OrderNo'
    end
    object StringField4: TStringField
      Tag = 2
      DisplayLabel = #35746#21333#26126#32454#32534#21495
      FieldName = 'OrderDetailNo'
    end
    object StringField5: TStringField
      Tag = 2
      DisplayLabel = #23458#25143#35746#21333#26126#32454#21333#21495
      FieldName = 'CustOrderDetailNo'
    end
    object StringField6: TStringField
      Tag = 2
      DisplayLabel = #23458#25143#35746#21333#21495
      FieldName = 'CustOrderNo'
    end
    object adsBrowseDetailProjectNo: TStringField
      DisplayLabel = #21345#21495'/'#32568#21495
      FieldName = 'ProjectNo'
    end
    object StringField7: TStringField
      DisplayLabel = #23458#25143'ID'
      FieldName = 'CustID'
    end
    object adsBrowseDetailres_CustName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_CustName'
      LookupDataSet = res_Supply
      LookupKeyFields = 'SupplyID'
      LookupResultField = 'SupplyShortName'
      KeyFields = 'CustID'
      Size = 50
      Lookup = True
    end
    object StringField8: TStringField
      DisplayLabel = #31867#22411'ID'
      FieldName = 'ProcessID'
    end
    object adsBrowseDetailres_ProcessName: TStringField
      DisplayLabel = #31867#22411
      FieldKind = fkLookup
      FieldName = 'res_ProcessName'
      LookupDataSet = res_Process
      LookupKeyFields = 'ProcessID'
      LookupResultField = 'ProcessName'
      KeyFields = 'ProcessID'
      Size = 50
      Lookup = True
    end
    object StringField9: TStringField
      DisplayLabel = #21152#24037#31867#22411'ID'
      FieldName = 'ProProcessID'
    end
    object adsBrowseDetailres_ProProcessName: TStringField
      DisplayLabel = #21152#24037#31867#22411
      FieldKind = fkLookup
      FieldName = 'res_ProProcessName'
      LookupDataSet = res_Process
      LookupKeyFields = 'ProcessID'
      LookupResultField = 'ProcessName'
      KeyFields = 'ProProcessID'
      Size = 50
      Lookup = True
    end
    object StringField10: TStringField
      DisplayLabel = #20179#20301'ID'
      FieldName = 'PosID'
      Size = 50
    end
    object StringField11: TStringField
      DisplayLabel = #20179#20301
      FieldKind = fkLookup
      FieldName = 'res_PosNo'
      LookupDataSet = res_StockPlace
      LookupKeyFields = 'PosID'
      LookupResultField = 'PosNo'
      KeyFields = 'PosID'
      Lookup = True
    end
    object StringField12: TStringField
      DisplayLabel = #30446#26631#20179#20301'ID'
      FieldName = 'AimPosID'
    end
    object StringField13: TStringField
      DisplayLabel = #20135#21697'ID'
      FieldName = 'ProductID'
    end
    object StringField14: TStringField
      DisplayLabel = #20135#21697#32534#30721
      FieldName = 'ProductCode'
      Size = 50
    end
    object StringField15: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'ProductName'
      Size = 100
    end
    object StringField18: TStringField
      DisplayLabel = #22411#21495#35268#26684
      FieldName = 'Specs'
      Size = 1000
    end
    object adsBrowseDetailColorID: TStringField
      DisplayLabel = #33394#21495'ID'
      FieldName = 'ColorID'
    end
    object adsBrowseDetailColorCode: TStringField
      DisplayLabel = #33394#21495
      FieldName = 'ColorCode'
    end
    object StringField17: TStringField
      DisplayLabel = #39068#33394
      FieldName = 'ColorName'
      Size = 50
    end
    object StringField21: TStringField
      Tag = 2
      DisplayLabel = #25209#21495
      FieldName = 'BatchNo'
      Size = 50
    end
    object adsBrowseDetailCustBreadth: TStringField
      DisplayLabel = #24133#23485'(CM)'
      FieldName = 'CustBreadth'
      Size = 50
    end
    object adsBrowseDetailCustYardGram: TStringField
      DisplayLabel = #20811#37325'(G/m2)'
      FieldName = 'CustYardGram'
      Size = 50
    end
    object adsBrowseDetailCustHeight: TStringField
      DisplayLabel = #33457#39640'(CM)'
      FieldName = 'CustHeight'
      Size = 50
    end
    object adsBrowseDetailCustWidth: TStringField
      DisplayLabel = #33457#23485'(CM)'
      FieldName = 'CustWidth'
      Size = 50
    end
    object StringField19: TStringField
      DisplayLabel = #20379#24212#21830'ID'
      FieldName = 'SupplyID'
    end
    object StringField20: TStringField
      DisplayLabel = #20379#24212#21830
      FieldKind = fkLookup
      FieldName = 'res_SupplyName'
      LookupDataSet = res_Supply
      LookupKeyFields = 'SupplyID'
      LookupResultField = 'SupplyShortName'
      KeyFields = 'SupplyID'
      Size = 50
      Lookup = True
    end
    object adsBrowseDetailGradeID: TStringField
      DisplayLabel = #31561#32423'ID'
      FieldName = 'GradeID'
      Size = 50
    end
    object adsBrowseDetailres_GradeName: TStringField
      DisplayLabel = #31561#32423
      FieldKind = fkLookup
      FieldName = 'res_GradeName'
      LookupDataSet = res_ProductGrade
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GradeID'
      Size = 10
      Lookup = True
    end
    object adsBrowseDetailPieceCount: TFloatField
      DisplayLabel = #21305#25968
      FieldName = 'PieceCount'
    end
    object FloatField1: TFloatField
      DisplayLabel = #27599#20214#25968#37327
      FieldName = 'PieceNumber'
      OnChange = adsDetailPieceNumberChange
    end
    object FloatField2: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'Number'
      OnChange = adsDetailNumberChange
    end
    object StringField22: TStringField
      DisplayLabel = #21333#20301'ID'
      FieldName = 'UnitID'
    end
    object StringField23: TStringField
      DisplayLabel = #21333#20301
      FieldKind = fkLookup
      FieldName = 'res_UnitName'
      LookupDataSet = res_Unit
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object adsBrowseDetailMeter: TFloatField
      DisplayLabel = #25968#37327'(M)'
      FieldName = 'Meter'
    end
    object adsBrowseDetailYard: TFloatField
      DisplayLabel = #25968#37327'(Y)'
      FieldName = 'Yard'
    end
    object adsBrowseDetailWeight: TFloatField
      DisplayLabel = #25968#37327'(KG)'
      FieldName = 'Weight'
    end
    object FloatField3: TFloatField
      Tag = 2
      DisplayLabel = #21333#20215
      FieldName = 'Price'
      OnChange = adsDetailPriceChange
    end
    object BCDField1: TBCDField
      DisplayLabel = #37329#39069
      FieldName = 'Money'
      OnChange = adsDetailMoneyChange
      Precision = 18
      Size = 2
    end
    object StringField24: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object DateTimeField1: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object StringField25: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object DateTimeField2: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object StringField26: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 500
    end
  end
  object res_Process: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select ProcessID, ProcessName from V_ck_ProductProcess'
    Parameters = <>
    Left = 584
    Top = 240
  end
  object aspCreateBarcode: TADOStoredProc
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    ProcedureName = 'ck_sc_CreateProList;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@BillID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@BillType'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@BillNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@BillDate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@DeptID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@StockID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@OrderNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@OrderDetailNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@CustOrderNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@CustOrderDetailNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@DetailID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@CustID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ProjectNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ProcessNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ProcessID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@SupplyID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@PosID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ProductID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@BatchNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@ColorID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ColorCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@ColorName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@GradeID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@TotalPieceCount'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@TotalNumber'
        Attributes = [paNullable]
        DataType = ftBCD
        NumericScale = 2
        Precision = 18
        Value = Null
      end
      item
        Name = '@UnitID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@Price'
        Attributes = [paNullable]
        DataType = ftBCD
        NumericScale = 8
        Precision = 18
        Value = Null
      end
      item
        Name = '@PieceNumberList'
        Attributes = [paNullable]
        DataType = ftString
        Size = 500
        Value = Null
      end
      item
        Name = '@PieceNumberRemarkList'
        Attributes = [paNullable]
        DataType = ftString
        Size = 5000
        Value = Null
      end
      item
        Name = '@SectionCountList'
        Attributes = [paNullable]
        DataType = ftString
        Size = 500
        Value = Null
      end
      item
        Name = '@PackNoList'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1000
        Value = Null
      end
      item
        Name = '@SysUpdateType'
        Attributes = [paNullable]
        DataType = ftWord
        Precision = 3
        Value = Null
      end
      item
        Name = '@SysInfoCompany'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@SysInfoUserCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ProcFlag'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 500
        Value = Null
      end>
    Left = 56
    Top = 240
  end
  object adsBarcode: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    AfterOpen = adsBarcodeAfterOpen
    BeforePost = adsBarcodeBeforePost
    OnNewRecord = adsBarcodeNewRecord
    CommandText = 
      'Select OrderID, Barcode, PieceCount, PieceNumber, Number, Number' +
      'List, Meter, Yard, Weight, SourceBillID, SourceBillDetailID, Sou' +
      'rceBillType, Remark'#13#10'  from V_ck_ProBarcodeInit'#13#10'  where SourceB' +
      'illID=:SourceBillID and SourceBillType=:SourceBillType'#13#10'  Order ' +
      'By OrderID'
    EnableBCD = False
    Parameters = <
      item
        Name = 'SourceBillID'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'SourceBillType'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 576
    Top = 40
    object adsBarcodeOrderID: TIntegerField
      DisplayLabel = #24207#21495
      FieldName = 'OrderID'
    end
    object adsBarcodeBarcode: TStringField
      DisplayLabel = #26465#24418#30721
      FieldName = 'Barcode'
      Size = 30
    end
    object adsBarcodePieceCount: TFloatField
      DisplayLabel = #21305#25968
      FieldName = 'PieceCount'
    end
    object adsBarcodePieceNumber: TFloatField
      DisplayLabel = #27599#21305#25968#37327
      FieldName = 'PieceNumber'
    end
    object adsBarcodeNumber: TBCDField
      DisplayLabel = #25968#37327'(KG)'
      FieldName = 'Number'
      OnChange = adsBarcodeNumberChange
      Precision = 18
      Size = 2
    end
    object adsBarcodeNumberList: TStringField
      DisplayLabel = #25968#37327#25551#36848
      FieldName = 'NumberList'
      Size = 50
    end
    object adsBarcodeMeter: TFloatField
      DisplayLabel = #25968#37327'(M)'
      FieldName = 'Meter'
      OnChange = adsBarcodeMeterChange
    end
    object adsBarcodeYard: TFloatField
      DisplayLabel = #25968#37327'(Y)'
      FieldName = 'Yard'
      OnChange = adsBarcodeYardChange
    end
    object adsBarcodeWeight: TFloatField
      DisplayLabel = #25968#37327'(KG)'
      FieldName = 'Weight'
      OnChange = adsBarcodeWeightChange
    end
    object adsBarcodeSourceBillDetailID: TStringField
      DisplayLabel = #28304#21333#26126#32454'ID'
      FieldName = 'SourceBillDetailID'
    end
    object adsBarcodeSourceBillID: TStringField
      DisplayLabel = #28304#21333'ID'
      FieldName = 'SourceBillID'
    end
    object adsBarcodeSourceBillType: TStringField
      DisplayLabel = #28304#21333#31867#22411
      FieldName = 'SourceBillType'
    end
    object adsBarcodeRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  object res_ProductGrade: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select ID, Code, Name from V_da_ProductGrade'
    Parameters = <>
    Left = 328
    Top = 312
  end
  object aspck_sc_CreateProInitBill: TADOStoredProc
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    ProcedureName = 'ck_sc_CreateProList;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@BillID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@BillType'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@BillNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@BillDate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@DeptID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@StockID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@OrderNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@OrderDetailNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@CustOrderNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@CustOrderDetailNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@DetailID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@CustID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ProjectNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ProcessNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ProcessID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@SupplyID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@PosID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ProductID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@BatchNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@ColorID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ColorCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@ColorName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@GradeID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@TotalPieceCount'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@TotalNumber'
        Attributes = [paNullable]
        DataType = ftBCD
        NumericScale = 2
        Precision = 18
        Value = Null
      end
      item
        Name = '@UnitID'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@Price'
        Attributes = [paNullable]
        DataType = ftBCD
        NumericScale = 8
        Precision = 18
        Value = Null
      end
      item
        Name = '@PieceNumberList'
        Attributes = [paNullable]
        DataType = ftString
        Size = 500
        Value = Null
      end
      item
        Name = '@PieceNumberRemarkList'
        Attributes = [paNullable]
        DataType = ftString
        Size = 5000
        Value = Null
      end
      item
        Name = '@SectionCountList'
        Attributes = [paNullable]
        DataType = ftString
        Size = 500
        Value = Null
      end
      item
        Name = '@PackNoList'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1000
        Value = Null
      end
      item
        Name = '@SysUpdateType'
        Attributes = [paNullable]
        DataType = ftWord
        Precision = 3
        Value = Null
      end
      item
        Name = '@SysInfoCompany'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@SysInfoUserCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ProcFlag'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 500
        Value = Null
      end>
    Left = 56
    Top = 320
  end
end
